home *** CD-ROM | disk | FTP | other *** search
/ Michigan Football - The U…te Multimedia Experience / Michigan Football - The Ultimate Multimedia Experience on CD-ROM.iso / pc / cfsum / timeline.dxr / 00364_Field_364.txt < prev    next >
Text File  |  1995-10-04  |  1KB  |  35 lines
  1. on checkyr
  2.   set gyearList to [1879,1898,1927,1940,1950,1959,1969,1971,1973,¬¨
  3.                     1978,1979,1981,1983,1985,1986,1988,1989,1991,1993,1994,1995]
  4.   put field "year" into framename
  5.   if getOne(gyearList,framename) <> 0 then go to framename
  6.   else¬¨
  7.   if "1879" < field "year" and field "year" < "1898" then go to "1898"
  8.   else¬¨
  9.     if "1899" <= field "year" and field "year" < "1927" then go to "1927"
  10.   else¬¨
  11.   if "1928" <= field "year" and field "year" < "1940" then go to "1940"
  12.   else¬¨
  13.   if "1941" <= field "year" and field "year" < "1950" then go to "1950"
  14.   else¬¨
  15.   if "1951" <= field "year" and field "year" < "1959" then go to "1959"
  16.   else¬¨
  17.   if "1960" <= field "year" and field "year" < "1969" then go to "1969"
  18.   else¬¨
  19.     if "1970" <= field "year" and field "year" < "1971" then go to "1971"
  20.   else¬¨
  21.   if "1972" <= field "year" and field "year" < "1973" then go to "1973"
  22.   else¬¨
  23.   if "1974" <= field "year" and field "year" < "1978" then go to "1978"
  24.   else¬¨
  25.   if "1979" <= field "year" and field "year" < "1981" then go to "1981"
  26.   else¬¨
  27.   if "1982" <= field "year" and field "year" < "1983" then go to "1983"
  28.   else¬¨ 
  29.     if "1984" = field "year" then go to "1988"
  30.     else¬¨
  31.   if "1990" <= field "year" and field "year" < "1992" then go to "1992"
  32.   end if
  33. end if
  34.  
  35. end checkyr